perm filename OOO.FAI[TMP,LCS]1 blob sn#138840 filedate 1975-01-07 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE OO
C00009 ENDMK
C⊗;
	TITLE OO
	EXTERNAL JOBDDT,JOBOPC
OA←14
N←15
INT:	HRRZI N,IOA
STAR:	RESET
	CLRBFI
	OUTSTR [ASCIZ/*/]
	INCHWL 7
	CAIN 7,15
	JRST STAR
	CAIN 7,612
	JRST DDTST
	HRRZI 10,(N)
INLIN:	HRRZM 7,(10)
	ADDI 10,2
	INCHRS 7
	CAIA
	JRST INLIN
	SUBI 10,4
	HRR 7,2(10)
	SETZM OUTFLG#
	TRNE 7,600
	SETOM OUTFLG
MAIN:	HRRZI OA,IOA
	HRRZM N,CEX#
FDEQ:	MOVE 4,(OA)
	HRRZI 5,(N)
LKMO:	CAMN 4,(5)
	JRST EQU
ADIN:	ADDI 5,2
	CAIGE 5,(10)
	JRST LKMO
	ADDI OA,2
	CAIGE OA,(N)
	JRST FDEQ
	HRR OA,CEX
	ADDI N,2
	CAIGE N,(10)
	JRST FDEQ
	JRST BACK
EQU:	HRRZ 11,OA
	CAILE 10,2(5)
	CAIG N,2(OA)
	JRST CKLA
	MOVE 6,2(OA)
	CAMN 6,2(5)
	HRRI 11,2(OA)
CKLA:	CAIGE 5,2(N)
	JRST MVM
	HRR 6,-2(5)
	CAIE OA,2(6)
	JRST MVM
	HRRZI 6,2
	CAIE 11,(OA)
	ADDI 6,2
	SUBI 5,2
	HLL 11,(5)
	JRST .+5
MVM:	CAIN 11,(OA)
	JRST ADIN
	HRLI 11,(OA)
	HRRZI 6,2
	TLO 11,400000
	MOVEM 11,(5)
	AOBJP 11,
	MOVEM 11,1(5)
	ADDI 5,2
	SUBI 10,(6)
	ADDI 6,(5)
	HRLI 6,(6)
	HRRI 6,(5)
	BLT 6,(10)
	HRRZI 6,-2(10)
	CAME 6,CEX
	JRST LKMO
BACK:	HRRZ 13,CEX
	HRRZI 5,(13)
GXO:	MOVE 7,(5)
	HRRZI 6,(7)
	TLNE 7,400000
	JRST MINS
	HRRI 11,(5)
	HRLI 11,(5)
	TLO 11,400000
	MOVEM 11,1(5)
	HRRZI 6,IOA
MINS:	ADDI 6,2
	CAIL 6,(13)
	JRST NXO
	CAME 7,(6)
	JRST MINS
	HRRI 11,1(6)
	HRLI 11,(11)
	TLO 11,400000
	MOVEM 11,1(5)
NXO:	ADDI 5,2
	CAIGE 5,(10)
	JRST GXO
	CAIE 10,2(13)
	JRST NOT1
	SKIPL OUTFLG
	JRST TROAWY
	JUMPL 7,FIXIT
NOT1:	HRLI 7,(13)
	HRRI 7,-2(10)
	TLO 7,400000
	MOVE 11,7
	AOBJP 11,
	SKIPL OUTFLG
	JRST GTO
	ADDI 10,2
FIXIT:	MOVE 7,TMP#
	HRRZI 6,(7)
	ADDI 6,2
	CAIL 6,(13)
	JRST NSEEN
	CAME 7,(6)
	JRST .-4
	MOVEM 11,1(6)
TROAWY:	SUBI 10,2
	JRST GTO
NSEEN:	MOVEM 7,(10)
	MOVEM 11,1(10)
	ADDI 10,2
GTO:	MOVEM 7,TMP
	HRRZI N,(10)
	HRRZI OA,(N)
	HRLI OA,700
	HRRZI 13,(N)
	ADDI 13,200
	TLZ 11,400000
	JRST GOUT
PUDO:	HRLI 11,(4)
	PUSH 13,11
	MOVE 11,7
GOUT:	HLRZ 4,11
MOR:	MOVE 7,(4)
	TLZE 7,400000
	JRST PUDO
	IDPB 7,OA
ADO:	ADDI 4,2
	CAIG 4,(11)
	JRST MOR
	TLNN 13,777777
	JRST TYOUT
	POP 13,11
	HLRZ 4,11
	JRST ADO
TYOUT:	HRRZI 7,15
	IDPB 7,OA
	HRRZI 7,12
	IDPB 7,OA
	SETZ 7,
	IDPB 7,OA
	SKIPL OUTFLG
	OUTSTR [ASCIZ/ /]
	OUTSTR 1(N)
	JRST STAR
DDTST:	SKIPN JOBDDT
	JRST STAR
	HRRZI 11,STAR
	MOVEM 11,JOBOPC
	HRRZ 11,JOBDDT
	JRST (11)
IOA:	BLOCK 22000
	END INT